library(tidyverse)
library(DeclareDesign)
library(rdss)

set.seed(42)

source("code/declarations/declaration_10.1.R")

simulation_10.1 <- 
  simulate_design(declaration_10.1, sims = 10) |>
  mutate(significant = p.value <= 0.05)

write_rds(simulation_10.1, file = "diagnosis_objects/simulation_10.1.rds")
